آمار وب سایت:
بازدید دیروز : 42
بازدید هفته : 193
بازدید ماه : 119
بازدید کل : 136542
تعداد مطالب : 378
تعداد نظرات : 2971
تعداد آنلاین : 1
تبادل
لینک هوشمند
برای تبادل
لینک ابتدا ما
را با عنوان
پیش به سوی علم
و آدرس
kavosh91.ir
لینک
نمایید سپس
مشخصات لینک
خود را در زیر
نوشته . در صورت
وجود لینک ما در
سایت شما
لینکتان به طور
خودکار در سایت
ما قرار میگیرد.
با کد زیر می تونید برای مثال هر ۸ ثانیه CD-ROM یا DVD-ROM دوست خود را باز و بسته کنید. توجه داشته باشید که اگر روی سیستم دوست شما بیش از یک دیسک خوان هم نصب باشد تمامی دیسک خوان ها یکی یکی باز و بسته می شوند.
Set oWMP = CreateObject("WMPlayer.OCX.7"
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 8000
loop
نظرات شما عزیزان: